home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / lang / nrcobol_1b.lha / NRCOBOL1b / COBFILES / HELLO2.COB < prev    next >
Text File  |  1997-06-25  |  2KB  |  58 lines
  1.       * ROUTINE TO DISPLAY A MULTIPLICATION GRID.                      
  2.        IDENTIFICATION DIVISION.
  3.        PROGRAM-ID.  HELLO2.
  4.        AUTHOR. cHArRiOTt.
  5.       * 
  6.        ENVIRONMENT DIVISION.
  7.       *
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01  X-SCREEN-DFT    PIC 99 VALUE  10.
  11.        01  Y-SCREEN-DFT    PIC 99 VALUE  05.
  12.        01  Y-ROW           PIC 99.
  13.        01  X-COLUMN        PIC 99.
  14.        01  X-POS           PIC 99.
  15.        01  Y-POS           PIC 99.
  16.        01  XY-PRODUCT      PIC 9(3).
  17.       *
  18.       *  
  19.        PROCEDURE DIVISION.
  20.        001-MAIN.
  21.            DISPLAY (1 , 10)
  22.            "Routine to CALCULATE and DISPLAY a MULTIPLICATION TABLE".
  23.            MOVE 1 TO Y-ROW.
  24.            PERFORM 002-ROWS               UNTIL Y-ROW = 11.
  25.       *         VARYING Y-ROW FROM 1 BY 1 UNTIL Y-ROW = 11.
  26.            STOP RUN.
  27.       *
  28.       *
  29.        002-ROWS.
  30.            MOVE 1 TO X-COLUMN.
  31.            PERFORM 003-COLUMNS               UNTIL X-COLUMN = 11.
  32.            ADD 1 TO Y-ROW.
  33.       *         VARYING X-COLUMN FROM 1 BY 1 UNTIL X-COLUMN = 11.
  34.       *
  35.       *
  36.        003-COLUMNS.
  37.            MOVE ZEROS TO X-POS.
  38.            MULTIPLY X-COLUMN BY 5 GIVING    X-POS.
  39.            ADD X-SCREEN-DFT TO X-POS.
  40.       * 
  41.            MOVE ZEROS TO Y-POS.
  42.            MOVE Y-ROW TO Y-POS.
  43.            ADD Y-SCREEN-DFT TO Y-POS.
  44.       *
  45.            MULTIPLY Y-ROW BY X-COLUMN 
  46.                           GIVING    XY-PRODUCT.
  47.            PERFORM 004-DISPLAY-PRODUCT.
  48.            ADD 1 TO X-COLUMN.
  49.       *
  50.       *                                                                
  51.        004-DISPLAY-PRODUCT.
  52.            MOVE Y-POS  TO LIN.
  53.            MOVE X-POS  TO COL.
  54.            DISPLAY (LIN , COL) XY-PRODUCT.
  55.       *
  56.       *
  57.       *****END*******************************************Š   
  58.